home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / sal100.zip / SHELL.SRC < prev   
Text File  |  1993-06-04  |  414b  |  23 lines
  1. void ShellSort()
  2. {
  3.     int i;
  4.     int j;
  5.     int gap;
  6.     int k;
  7.     char x;
  8.     char a[4];
  9.  
  10.     a[0] = 5; a[1] = 3; a[2] = 2; a[3] = 1;
  11.  
  12.     for (k=0; k < 4; k++)
  13.     {
  14.       gap = a[k];
  15.       for (i=gap; i < ARRAYSIZE; i++)
  16.       {
  17.         x = Vektor[i];
  18.         for (j=i-gap; x < Vektor[j] && j >= 0; j=j-gap)
  19.           Vektor[j+gap] = Vektor[j];
  20.         Vektor[j+gap] = x;
  21.       }
  22.     }
  23. }